unit MultiClassMethod_wwGrid;
interface
uses
  AcroMultiClassMethod,Dialogs;

implementation

uses
  Classes,Graphics,Variants,wwDbGrid;


procedure Proc_TwwDbGrid(ATable: IDataLocate; AComponent: TObject;
  ALCID,ASeqNo: string;AParams:TStringList);
var
  i:integer;
  s:string;
  SL:TStringList;
begin
  SL:=TStringList.Create;
  SL.Delimiter:=#9;
  TwwDbGrid(AComponent).BeginUpdate;
  try
    for i:=0 to TwwDbGrid(AComponent).Selected.Count-1 do
    begin
      s:=TwwDbGrid(AComponent).Selected[i];
      SL.DelimitedText:=s;
      SL[2]:=GetDisplayValue(ATable,SL[2],ALCID,ASeqNo);
      TwwDbGrid(AComponent).Selected[i]:=SL.DelimitedText;
    end;
  finally
    TwwDbGrid(AComponent).EndUpdate;
    SL.Free;
  end;
end;

initialization
  AcroClassMethodStorage.RegisterClassMethod(TwwDbGrid,Proc_TwwDbGrid);
finalization
  AcroClassMethodStorage.UnRegisterClassMethod(TwwDbGrid);
end.
